home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1005_StatText < prev    next >
Encoding:
Text File  |  1992-04-08  |  342 b   |  19 lines
  1. %case update%
  2.     SetWFont (%itemname%);
  3.     TextIDBox (%textID%, GetWRect (%itemname%));
  4. %case itemNr%
  5.     %DefineItem%
  6. %case dialog field%
  7.     %if variable%
  8.         %fieldname%:%        %Str255;
  9.         %haveField%
  10.     %end if%
  11. %case init field%
  12.     %if variable%
  13.         %FieldName% := '%title%';
  14.     %end if%
  15. %case set%
  16.     %if variable%
  17.         SetDText (%Itemname%, %Fieldname%);
  18.     %end if%
  19.